home *** CD-ROM | disk | FTP | other *** search
/ NeXT Education Software Sampler 1992 Fall / NeXT Education Software Sampler 1992 Fall.iso / SoundAndMusic / cmix / lpc / sampledata / samplelpcplay.data < prev    next >
Text File  |  1992-01-27  |  2KB  |  53 lines
  1. /************   lpcplay.data *****************/
  2. /* p0=start,p1=dur,p2=8ve.pch,p3=frame1,p4=frame2,p5=amp,p6=warp,p7=cf,p8=bw, p9/10 --> additional pitch specifications */
  3.  
  4. float thresh,randamp,fps,frame1,frame2,D,cf,bw,incr,start,amp
  5.  
  6. output("synth")
  7. dataset("sampledataset.lpc",24)
  8. lpcstuff(thresh = .0007,    randamp = .1,    0,0,0)
  9. fps = 22050/250
  10.  
  11. frame1=1 frame2=200 D=0 bw=0 cf=0 amp=1
  12. incr=(frame2-frame1)/fps
  13.  
  14. /* straightforward synthesis */
  15. lpcplay(start=0,incr,transp = .00001,frame1,frame2,amp,D,cf,bw)
  16.  
  17. setdev(1)  /* very slight deviation about base pitch, flat result */
  18. lpcplay(start=start+incr+1,incr,transp = 8,frame1,frame2,amp,D,cf,bw)
  19.  
  20. setdev(0)  /* back to normal deviation, slower, higher, raise formants */
  21. lpcplay(start=start+incr+1,incr*1.5,transp = .08,frame1,frame2,amp,D=.2,cf,bw)
  22.  
  23. /* lower, slower, lower formants --sex change operation */
  24. lpcplay(start=start+incr*1.5+1,incr*1.5,transp= -.12,frame1,frame2,amp,D=-.25,cf,bw)
  25.  
  26. /* even more */
  27. lpcplay(start=start+incr*1.5+1,incr*1.5,transp= 6.00,frame1,frame2,amp,D=-.25,cf,bw)
  28.  
  29. /* distorted curve, some formant shift, speeding up slightly */
  30. setdev(30)
  31. lpcplay(start=start+incr*1.5+1,incr*.9,transp=.02,frame1,frame2,amp,D=-.1,cf,bw)
  32.  
  33. /* modify pitch curves */
  34. setdev(0)
  35. lpcplay(start=start+incr+1,incr*.9,transp=8,frame1,frame2,amp,D=0,cf,bw,frame1+50,8,frame1+100,7,frame1+150,7.05,frame2,9)
  36.  
  37. /* some whispered speech */
  38. lpcstuff(thresh = -.01,    randamp = .1,    0,0,0)
  39. lpcplay(start=start+incr+1,incr,transp=8,frame1,frame2,amp,D=0,cf,bw)
  40.  
  41. /* highpass whispered speech */
  42. lpcplay(start=start+incr+1,incr,transp=8,frame1,frame2,amp,D=0,cf=5,bw=.1)
  43.  
  44. /* highpass whispered speech, shift formants */
  45. lpcplay(start=start+incr+1,incr,transp=8,frame1,frame2,amp,D=-.3,cf=7,bw=.05)
  46.  
  47. /* andrews sisters */
  48. lpcstuff(thresh = .01,    randamp = .1,    0,0,0)
  49. setdev(15)
  50. lpcplay(start=start+incr+1,incr,transp=.01,frame1,frame2,amp,D=0,cf=0,bw=0)
  51. lpcplay(start             ,incr,transp=.05,frame1,frame2,amp,D=0,cf=0,bw=0)
  52. lpcplay(start             ,incr,transp=.08,frame1,frame2,amp,D=0,cf=0,bw=0)
  53.